Select Cid2

= afields(vcid)

create cursor cCid from array vCid


Select Cid2

set memo to 65

scan all
     scatter memvar
     
     for i = 1 to memlines(Titulox)
         m.titulox = padr(mline(titulox,i), 65)
         if i > 1
            m.titulox = padl( alltrim(m.titulox), 65)
         endif
         if i = memlines(titulox)
            m.titulox = m.titulox + ' (' + m.CidIni + ') (' + m.cidfin + ')'
         endif
         
         insert into cCid from memvar
     endfor
     

endscan

select cid2
